Option Explicit
Sub F_Sample024()
   'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
   'ոF_Data.mdb F_Tbl01
    Dim myCon      As New ADODB.Connection
    Dim myRst      As ADODB.Recordset
    Dim mySqlStr   As String
    Dim myFileName As String
    Dim i          As Long
    Worksheets.Add
    myFileName = "F_Data.mdb"			'ŪJɮ
    'HSQLӫwŪJ
    mySqlStr = "SELECT * FROM F_Tbl01"
    myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & ThisWorkbook.Path & "\" & myFileName & ";"
    Set myRst = myCon.Execute(mySqlStr)
    If myRst.EOF Then
        MsgBox "SŦX󪺸"
    Else
        With myRst
           'W
            For i = 1 To .Fields.Count
                Cells(1, i).Value = .Fields(i - 1).Name
            Next
           'O
            Range("A2").CopyFromRecordset myRst
            .Close
        End With
    End If
    myCon.Close
    Set myRst = Nothing					'
    Set myCon = Nothing
End Sub
